home *** CD-ROM | disk | FTP | other *** search
/ Beginning Mac Programming / Beginning Mac Programming.bin / pc / Open Me for REALbasic 3 / REALbasic 3.2 / Goodies / Development Tools / XCMDs and XFCNs / Other / GetDefaultFile / card_8277.txt < prev    next >
Encoding:
Text File  |  1996-03-03  |  2.1 KB  |  88 lines
  1. -- card: 8277 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 8637
  5. -- name: Credits
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set scroll of cd fld 1 to 0
  9. end openCard
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17. -- part 4 (field)
  18. -- low flags: 05
  19. -- high flags: 0007
  20. -- rect: left=2 top=28 right=214 bottom=414
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 0
  24. -- font id: 3
  25. -- text size: 9
  26. -- style flags: 0
  27. -- line height: 12
  28. -- part name: Credits
  29. ----- HyperTalk script -----
  30. on mouseUp
  31.   visual dissolve
  32.   go back
  33. end mouseUp
  34.  
  35.  
  36. -- part 5 (button)
  37. -- low flags: 00
  38. -- high flags: 2000
  39. -- rect: left=389 top=5 right=24 bottom=409
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 130 / 130
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Help
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   visual dissolve
  51.   go back
  52. end mouseUp
  53.  
  54.  
  55. -- part 6 (button)
  56. -- low flags: 00
  57. -- high flags: 0001
  58. -- rect: left=364 top=5 right=24 bottom=384
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 132 / 132
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Help
  67. ----- HyperTalk script -----
  68. on mouseUp
  69. end mouseUp
  70.  
  71.  
  72. -- part contents for card part 4
  73. ----- text -----
  74. GetDefaultFile is an XFCN that will open a standard SFGetFile dialog at a given path. It is one of the many externals found in the Core Collection v2.1. I hope someone finds it useful.
  75.  
  76. -- Legal Stuff
  77. This  external is  FreeWare, allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack. Any commercial use must be licensed and acknowledged by the author.
  78.  
  79. Internet:   sudderth@traveller.com
  80. Web:   http://www.hsv.tis.net/~sudderth
  81.  
  82. ¬© 1991-1996 All Rights Reserved
  83. Core Development Group, Inc. / Written by John Sudderth     
  84. If you would like an external developed for your company just drop us a line.
  85.  
  86. Version history:
  87.  
  88. v1.1 - Added optional "Type" parameter. Dialog now opens with first item selected (instead of the last).